inherited frmMesas: TfrmMesas
  Left = 247
  Top = 191
  Caption = ''
  ClientHeight = 452
  ClientWidth = 569
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 415
    Width = 569
  end
  inherited Panel2: TPanel
    Width = 569
    Height = 415
    inherited Panel3: TPanel
      Width = 567
      Caption = 'Mesas'
      inherited GroupBox1: TGroupBox
        Left = 488
      end
    end
    inherited Panel4: TPanel
      Width = 567
      Height = 373
      object Label1: TLabel [0]
        Left = 11
        Top = 12
        Width = 33
        Height = 13
        Caption = 'Codigo'
      end
      object Label2: TLabel [1]
        Left = 112
        Top = 13
        Width = 51
        Height = 13
        Caption = 'N.Pessoas'
      end
      object Label3: TLabel [2]
        Left = 112
        Top = 57
        Width = 65
        Height = 13
        Caption = 'Hora abertura'
      end
      object Label4: TLabel [3]
        Left = 11
        Top = 57
        Width = 65
        Height = 13
        Caption = 'Data abertura'
      end
      inherited DBGrid1: TDBGrid
        Top = 156
        Width = 559
        TabOrder = 5
      end
      inherited SbHints: TStatusBar
        Top = 350
        Width = 559
      end
      object EdtMesCodigo: TDBEdit
        Left = 11
        Top = 26
        Width = 70
        Height = 21
        Hint = 'C'#243'digo(Numero) de Mesa '
        CharCase = ecUpperCase
        DataField = 'MES_CODIGO'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnExit = EdtMesCodigoExit
      end
      object EDTMesPessoas: TDBEdit
        Left = 112
        Top = 27
        Width = 72
        Height = 21
        Hint = ' Digite o C'#243'digo '
        CharCase = ecUpperCase
        Color = clBtnFace
        DataField = 'MES_PESSOAS'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ReadOnly = True
        ShowHint = False
        TabOrder = 1
      end
      object EDTMesHora: TDBEdit
        Left = 112
        Top = 71
        Width = 73
        Height = 21
        Hint = ' Digite o C'#243'digo '
        CharCase = ecUpperCase
        Color = clBtnFace
        DataField = 'MES_HORA'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ReadOnly = True
        ShowHint = False
        TabOrder = 3
      end
      object EDTMesAbertura: TDBEdit
        Left = 11
        Top = 71
        Width = 72
        Height = 21
        Hint = ' Digite o C'#243'digo '
        CharCase = ecUpperCase
        Color = clBtnFace
        DataField = 'MES_DATA'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ReadOnly = True
        ShowHint = False
        TabOrder = 2
      end
      object DBRG_Situacao: TDBRadioGroup
        Left = 216
        Top = 16
        Width = 241
        Height = 81
        Caption = 'Situa'#231#227'o'
        Columns = 2
        Items.Strings = (
          '&Livre'
          '&Ocupado'
          '&Encerrado'
          '&Reservada')
        TabOrder = 4
      end
    end
  end
  inherited DtSrc: TDataSource
    DataSet = SQLC_Mesas
    Left = 48
  end
  inherited DtSrcDBGrid: TDataSource
    Left = 151
  end
  object SQLC_Mesas: TSQLClientDataSet
    CommandText = 'select * from MESAS where mes_codigo=:pcodigo;'#13#10
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pcodigo'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 45
    Top = 320
    object SQLC_MesasMES_CODIGO: TIntegerField
      DisplayLabel = 'CODIGO'
      FieldName = 'MES_CODIGO'
      Required = True
    end
    object SQLC_MesasMES_PESSOAS: TIntegerField
      DisplayLabel = 'N. PESSOAS'
      FieldName = 'MES_PESSOAS'
    end
    object SQLC_MesasMES_DATA: TDateField
      DisplayLabel = 'DATA ABERTURA'
      FieldName = 'MES_DATA'
    end
    object SQLC_MesasMES_HORA: TTimeField
      DisplayLabel = 'HORA ABERTURA'
      FieldName = 'MES_HORA'
    end
    object SQLC_MesasMES_SITUACAO: TStringField
      DisplayLabel = 'SITUACAO'
      FieldName = 'MES_SITUACAO'
      Required = True
      Size = 1
    end
  end
end
